Haskell: Trouble with let statement